home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 095 / rfix0326.arc / BUL60326 next >
Encoding:
Text File  |  1987-03-26  |  34.1 KB  |  761 lines
  1.           ============= Reported Bugs/Problems ==============
  2.  
  3. N O T E :    These fixes are not part of the downloadable files on this system.
  4.              They are provided so that you may apply them to the copies of the
  5.              BASIC source code for RBBS which you have.  These fixes will be 
  6.              included in the next release of RBBS-PC.
  7.  
  8. CONVENTIONS: The temporary fixes are assigned numbers that correspond to the
  9.              month, day, and order in which they were reported.  The fixes are
  10.              dated (if there are any) following the problem description.  The
  11.              lines of source code that are changed/modified/added are
  12.              designated by the comment beginning in column 70 of "' TFMMDD#".
  13.  
  14. To download this file, go to the file subsystem and download the file BULLET6
  15. with the command "d;bullet6;x".  To download the file that contains the .MRG
  16. files and appropriate .BAT files to apply the merges and re-compile the RBBS-PC
  17. source code, download the file RFIX0326.ARC.
  18.  
  19. Summary of the temporary fixes to date:
  20.  
  21. Executable       BASIC   
  22.  Program     Source Code   DATE          Cryptic Description of Problem
  23. -----------  ----------- --------  --------------------------------------------
  24. RBBS-PC.EXE all modules  03/15/87  7:00 PM E.S.T. First release of CPC15-1A
  25. CONFIG.EXE  CONFIG.BAS   03/16/87  Error 5 in line 15780 configuring a new .DEF
  26. RBBS-PC.EXE    (none)    03/17/87  Carrier is dropped when exiting to DOS
  27. RBBS-PC.EXE RBBS-PC.BAS  03/18/87  Some private messages are not handled right.
  28. RBBS-PC.EXE RBBS-PC.BAS  03/20/87  DOORS were prohibited if 0 rings specified.
  29.             RBBSSUB1.BAS
  30.             RBBS-VAR.BAS
  31. CONFIG.EXE  CONFIG.BAS   03/21/87  On 0 rings the modem was initialized wrong.
  32.             CNFG-SUB.BAS 03/21/87
  33. CONFIG.EXE  CNFG-SUB.BAS 03/22/87  10-NET was not selectable as a LAN.
  34. CONFIG.EXE  CONFIG.BAS   03/23/87  CONFIG reset itself to "SHELL" when invoked.
  35. RBBS-PC.EXE RBBSSUB1.BAS 03/24/87  Answer more reliably for "clone" modems.
  36. RBBS-PC.EXE RBBS-PC.BAS  03/24/87  Correctly handle subscription expirations.
  37. CONFIG.EXE  CNFG-SUB.BAS 03/24/87  Allow access to screen 13 of CONFIG.
  38. RBBS-PC.DOC    (none)    03/24/87  Correct the documentation for Hayes 2400.
  39. RBBS-PC.DOC    (none)    03/24/87  Correct the documentation for LINKing.
  40. APPENDIX.DOC   (none)    03/24/87  Correct the documentation for Everex modems.
  41. RBBS-PC.DOC    (none)    03/24/87  Correct the documentaion for FMS.
  42. RBBS-PC.EXE RBBSSUB1.BAS 03/25/87  Upper case did not support color graphics.
  43. CONFIG.EXE  CNFG-SUB.BAS 03/26/87  Line number out of order.
  44. RBBS-PC.EXE RBBSSUB2.BAS 03/26/87  Files uploaded categorized ok if FMS unused.
  45. --------------------------------TF031601---------------------------------------
  46.  
  47.   CONFIG.BAS   03/16/87  When creating a new .DEF file for 15-1A or if config-
  48. (Version 3.00)           uring non-Hayes commands without including the command
  49.                          "S0=" in the modem initialization command, an 
  50.                          "ERROR 5" would occur in line 15780 of CONFIG.  This
  51.                          fix is included in Version 3.01 of CONFIG.  The fix to
  52.                          Version 3.00 of CONFIG is to change both lines 15790
  53.                          and the error trapping routines in line 60010 of
  54.                          CONFIG.BAS as follows: 
  55.                                   
  56. 15790 FIRMWARE.INITIALIZE.COMMAND$= "AT&C1&D3B1E0V1M0S0=0&T5"
  57.       FIRMWARE.CLEAR.COMMAND$    = "AT&F"
  58.       FIRMWARE.WRITE.COMMAND$    = "&W"
  59.       USER.ANSWER.COMMAND$ = MODEM.ANSWER.COMMAND$
  60.       USER.COUNT.RINGS.COMMAND$ = MODEM.COUNT.RINGS.COMMAND$
  61.       USER.GO.OFFHOOK.COMMAND$ = MODEM.GO.OFFHOOK.COMMAND$
  62.       USER.INIT.COMMAND$ = MODEM.INIT.COMMAND$                       ' TF031601
  63.       USER.RESET.COMMAND$ = MODEM.RESET.COMMAND$
  64.       USER.INITIALIZE.COMMAND$ = FIRMWARE.INITIALIZE.COMMAND$
  65.       USER.FIRMWARE.CLEAR.CMND$ = FIRMWARE.CLEAR.COMMAND$
  66.       USER.FIRMWARE.WRITE.CMND$ = FIRMWARE.WRITE.COMMAND$
  67.       RETURN 
  68.  
  69. also include the following after line 60010 of CONFIG.BAS:
  70.  
  71.       IF ERL = 15780 AND ERR = 5 AND _                               ' TF031601
  72.          INSTR(USER.INIT.COMMAND$,"S0=") = 0 THEN _                  ' TF031601
  73.          RESUME 16073                                                ' TF031601
  74.  
  75. --------------------------------TF031701---------------------------------------
  76.  
  77. RBBS-PC.EXE              03/17/87  RBBS-PC drops carrier when exiting to DOS
  78.                                    or when using external protocols.  This was
  79.                                    due to inadvertently compiling RBBS-PC.EXE
  80.                                    with an unpatched version of the BASIC
  81.                                    library (i.e. the DTR patch had not been
  82.                                    applied to it).  This can be corrected by
  83.                                    patching the RBBS-PC.EXE file for CPC15-1A
  84.                                    as follows:
  85.  
  86. Step 1  --  Rename RBBS-PC.EXE to RBBS-PC.EOE
  87.  
  88. Step 2  --  Enter the following command
  89.  
  90.             DEBUG RBBS-PC.EOE
  91.  
  92. Step 3  --  Enter the following command
  93.  
  94.             -R
  95.  
  96.             Note the value in the CS register and add 2000 to it.  This is to
  97.             be substituted wherever you see "XXXX" in the following steps.
  98.  
  99. Step 4  --  Enter the following command
  100.  
  101.             s XXXX:0 FEEE 83 C2 04 32 C0
  102.  
  103.             DOS will respond with
  104.  
  105.             XXXX:7005
  106.  
  107.             If you don't get this response, stop.  If you do get this response
  108.             continue to Step 5.
  109.  
  110. Step 5 --   Enter the following command
  111.  
  112.             a XXXX:7008
  113.  
  114.             DOS will respond with
  115.  
  116.             XXXX:7008
  117.  
  118. Step 6  --  Enter the following command and press enter.
  119.  
  120.             mov al,1
  121.  
  122. Step 7  --  Press enter again.
  123.  
  124. Step 8  --  Enter the following command to write the patched file to disk
  125.  
  126.             w
  127.  
  128. Step 9  --  Enter the following command to exit DEBUG
  129.  
  130.             q
  131.  
  132. Step 10 --  Now rename RBBS-PC.EOE to RBBS-PC.EXE
  133.  
  134.  
  135. --------------------------------TF031801---------------------------------------
  136.  
  137. RBBS-PC.EXE  RBBS-PC.BAS 03/18/87  RBBS-PC does not always corectly handle
  138.                                    private messages correctly.
  139.  
  140. Make the following changes to line number 2030 of RBBS-PC.BAS and recompile
  141. the program.
  142.  
  143. 2030 IF Q = 0 THEN _
  144.         MESSAGE.TO$ = "ALL"_
  145.      ELSE CALL ALLCAPSD (B$(),1) : _
  146.           MESSAGE.TO$ = B$(1)
  147.      IF Q > 0 AND _                                                  ' TF031801
  148.         LEN(B$(1)) < 2 THEN _                                        ' TF031801
  149.         CALL QTPUT ("Invalid user name! Try again.",1) : _           ' TF031801
  150.         GOTO 2020                                                    ' TF031801
  151.  
  152. --------------------------------TF032001---------------------------------------
  153.  
  154. RBBS-PC.EXE RBBS-PC.BAS  03/20/87  If a user specified that RBBS-PC was to 
  155.             RBBSSUB1.BAS           answer on 0 rings AND wanted to "shoot
  156.             RBBS-VAR.BAS           himself in the foot" by enabling remote 
  157.                                    users to drop to DOS or exit to DOORS, 
  158.                                    RBBS-PC CPC15-1A would not allow it. RBBS-
  159.                                    VAR.BAS should have the variable 
  160.                                    SHOOT.YOURSELF added to it.  The lines 10930
  161.                                    and 10970 in RBBS-PC.BAS should be 
  162.                                    modified as follows:
  163.  
  164. 10930 IF DOS.VERSION < 2 OR _                                        ' TF032001
  165.          (REQUIRED.RINGS = 0 AND NOT SHOOT.YOURSELF) THEN _          ' TF032001
  166.          A$ = "Remote DOS unavailable" : _
  167.          RETURN
  168.  
  169. 10970 IF (NOT DOORS.AVAILABLE) OR _                                  ' TF032001
  170.        (REQUIRED.RINGS = 0 AND NOT SHOOT.YOURSELF) THEN _            ' TF032001
  171.          A$ = "All doors locked!" : _
  172.          RETURN
  173.  
  174. Line 118 in RBBSSUB1.BAS should be changed as follows:
  175.  
  176. 118 INPUT #2, TURN.PRINTER.OFF,_    ' Turn printer off after each recycle
  177.               DIRECTORY.PATH$, _    ' Where dir files are stored
  178.               MIN.SEC.TO.VIEW, _
  179.               LIMIT.SEARCH.TO.FMS, _
  180.               DEFAULT.CATEGORY.CODE$, _
  181.               DIR.CATEGORY.FILE$, _
  182.               NEW.FILES.CHECK, _
  183.               MAX.DESC.LEN, _
  184.               SHOW.SECTION, _
  185.               COMMANDS.IN.PROMPT, _
  186.               NEWUSER.SETS.DEFAULTS, _
  187.               HELP.PATH$, _
  188.               HELP.EXTENSION$, _
  189.               MAIN.COMMANDS$, _
  190.               FILE.COMMANDS$, _
  191.               UTIL.COMMANDS$, _
  192.               GLOBAL.COMMANDS$, _
  193.               SYSOP.COMMANDS$
  194.       ALL.OPTS$ = MAIN.COMMANDS$ + FILE.COMMANDS$ + UTIL.COMMANDS$ + _
  195.                   GLOBAL.COMMANDS$ + SYSOP.COMMANDS$
  196.       HELP.EXTENSION$ = "." + HELP.EXTENSION$
  197.       BEG.MAIN = 1
  198.       BEG.FILE = LEN(MAIN.COMMANDS$) + BEG.MAIN
  199.       BEG.UTIL = LEN(FILE.COMMANDS$) + BEG.FILE
  200.       HELP$(3) = HELP.PATH$ + HELP$(3)
  201.       HELP$(4) = HELP.PATH$ + HELP$(4)
  202.       HELP$(7) = HELP.PATH$ + HELP$(7)
  203.       HELP$(9) = HELP.PATH$ + HELP$(9)
  204. '
  205. ' *****************************************************************************
  206. ' *  ESTABLISH COMMUNICATION PORT REGISTERS AND COMMANDS                      *
  207. ' *  GET DOS SUB-DIRECTORY RBBS-PC OPTIONS                                    *
  208. ' *****************************************************************************
  209. '
  210.     INPUT #2, UPLOAD.PATH$, _              ' Where upl dir goes
  211.               FMS.DIRECTORY$, _            ' Shared dir in FMS
  212.               ANS.MENU$, _
  213.               REQUIRED.QUESTIONNAIRE$,_
  214.               REMEMBER.NEW.USERS,_
  215.               SURVIVE.NOUSER.ROOM,_
  216.               PROMPT.HASH$,_
  217.               START.HASH,_
  218.               LEN.HASH,_
  219.               PROMPT.INDIV$,_
  220.               START.INDIV,_
  221.               LEN.INDIV
  222.     INPUT #2, BYPASS.MSGS, _
  223.               MUSIC, _
  224.               RESTRICT.BY.DATE, _
  225.               DAYS.TO.WARN, _
  226.               DAYS.IN.SUBSCRIPTION.PERIOD, _
  227.               CALLBACK.VERIFICATION, _
  228.               RESTRICT.VALID.CMDS, _
  229.               NEW.USER.DEFAULT.MODE, _
  230.               NEW.USER.LINE.FEEDS, _
  231.               NEW.USER.NULLS, _
  232.               NEW.USER.BELL, _
  233.               NEW.USER.CASE, _
  234.               NEW.USER.MARGINS, _
  235.               WRAP.CALLERS.FILE$, _
  236.               REDIRECT.IO.METHOD, _
  237.               GO.TO.SHELL, _
  238.               HALT.ON.ERROR, _
  239.               NEW.PUBLIC.MSGS.SECURITY, _
  240.               NEW.PRIVATE.MSGS.SECURITY, _
  241.               SECURITY.NEEDED.TO.CHANGE.MSGS, _
  242.               SL.CATEGORIZE.UPLOADS, _
  243.               BAUDOT, _
  244.               TIME.TO.DROP.TO.DOS, _
  245.               EXPIRED.SECURITY, _
  246.               DTR.DROP.DELAY, _
  247.               ASK.IDENTITY, _
  248.               USE.EXTERNAL.XMODEM, _
  249.               BUFFER.SIZE, _
  250.               MLCOM, _
  251.               SHOOT.YOURSELF, _                                      ' TF032001
  252.               F7.MESSAGE$, _
  253.               NEW.USER.DEFAULT.PROTOCOL$, _
  254.               NEW.USER.GRAPHICS$, _
  255.               NET.MAIL$, _
  256.               MASTER.DIRECTORY.NAME$, _
  257.               PROTOCOL.PATH$, _
  258.               UPCAT.HELP$, _
  259.               ALWAYS.STREW.TO$, _
  260.               DUMMY$
  261.     INPUT #2, DF,_
  262.               MODEM.INIT.WAIT.TIME, _
  263.               MODEM.COMMAND.DELAY.TIME, _
  264.               TURBO.RBBS, _
  265.               SUBDIR.COUNT,_
  266.               DF,_
  267.               UPLOAD.TO.SUBDIR,_
  268.               DF,_
  269.               UPLOAD.SUBDIR$,_
  270.               RESTRICT.BAUD,_
  271.               USE.COLOR,_
  272.               DISKFULL.GO.OFFLINE,_
  273.               EXTENDED.LOGGING,_
  274.               MODEM.RESET.COMMAND$,_
  275.               MODEM.COUNT.RINGS.COMMAND$,_
  276.               MODEM.ANSWER.COMMAND$,_
  277.               MODEM.GO.OFFHOOK.COMMAND$,_
  278.               DISK.FOR.DOS$, _
  279.               DUMB.MODEM, _
  280.               COMMENTS.AS.MESSAGES, _
  281.               LSB,_
  282.               MSB,_
  283.               LINE.CONTROL.REGISTER,_
  284.               MODEM.CONTROL.REGISTER,_
  285.               LINE.STATUS.REGISTER,_
  286.               MODEM.STATUS.REGISTER
  287.        IF SUBROUTINE.PARAMETER = -62 THEN _
  288.           EXIT SUB
  289.        REQUIRED.QUESTIONNAIRE$ = REQUIRED.QUESTIONNAIRE$ + ".DEF"
  290. '
  291. ' *****************************************************************************
  292. ' *  ESTABLISH RBBS-PC'S DOS SUBDIRECTORIES USAGE                             *
  293. ' *****************************************************************************
  294. '
  295.     IF FMS.DIRECTORY$ <> "" THEN _
  296.        FMS.DIRECTORY$ = DIRECTORY.PATH$ + _
  297.                         FMS.DIRECTORY$ + _
  298.                         "." + _
  299.                         DIRECTORY.EXTENTION$
  300.     UPCAT.HELP$ = HELP.PATH$ + UPCAT.HELP$ + HELP.EXTENSION$
  301.     IF SUBDIR.COUNT<1 THEN _
  302.        GOTO 123
  303.     FOR SUBDIR.INDEX = 1 TO SUBDIR.COUNT
  304.         INPUT #2,SUBDIR$
  305.         IF RIGHT$(SUBDIR$,1) <> "\" THEN _
  306.           SUBDIR$(SUBDIR.INDEX) = SUBDIR$ + "\" _
  307.         ELSE SUBDIR$(SUBDIR.INDEX) = SUBDIR$
  308.     NEXT
  309.     GOTO 125
  310. '
  311. ' *****************************************************************************
  312. ' *  SETUP DOWNLOAD DRIVES WITH NO SUBDIRECTORY SUPPORT                       *
  313. ' *****************************************************************************
  314. '
  315.  
  316. --------------------------------TF032101---------------------------------------
  317.  
  318. CONFIG.EXE  CONFIG.BAS   03/21/87  If a user specified that RBBS-PC was to 
  319.             CNFG-SUB.BAS           answer on 0 rings, the string used to 
  320.                                    initialize the modem was incorrect.  The
  321.                                    fix is to lines 15710 and 59020 in 
  322.                                    CONFIG.BAS as follows:
  323.  
  324. 15710 CLS
  325.       GOSUB 15780
  326.       A$ = "RBBS-PC to use modem commands you specified as follows:"
  327.       IF M14$ = "YES" THEN _
  328.      A$ ="RBBS-PC to use standard modem commands as follows:"
  329.       PRINT A$
  330.       PRINT ""
  331.       PRINT "1. Reset the modem                : " + USER.RESET.COMMAND$
  332.       PRINT ""
  333.       PRINT "2. Initialize the modem           : " + USER.INIT.COMMAND$
  334.       PRINT "   Note: End item 2 with:"
  335.       PRINT "     S0=1Q0X1 if answer on 0 rings"                     ' TF032101
  336.       PRINT "     S0=254 if answer on >0 rings (no ring-back)"
  337.       PRINT "     S0=255 if answer on >0 rings (with ring-back)"
  338.       PRINT ""
  339.       PRINT "3. Count the number of rings      : " + USER.COUNT.RINGS.COMMAND$
  340.       PRINT ""
  341.       PRINT "4. Answer the phone               : " + USER.ANSWER.COMMAND$
  342.       PRINT ""
  343.       PRINT "5. Take the phone off the hook    : " + USER.GO.OFFHOOK.COMMAND$
  344.       PRINT ""
  345.       PRINT "6. Clear the modem's firmware     : " + USER.FIRMWARE.CLEAR.CMND$
  346.       PRINT ""
  347.       PRINT "7. Initialize modem's firmware    : " + USER.INITIALIZE.COMMAND$
  348.       PRINT "   Note: End item 7 with:"
  349.       PRINT "     Q1 if item 2 ends with S0=255"
  350.       PRINT ""
  351.       PRINT "8. Write to modem's firmware      : " + USER.FIRMWARE.WRITE.CMND$
  352.       XX$ = "Select command string to change (1 to 8, CR to end)"
  353.       GOSUB 50345
  354.       LINE INPUT;HJ$
  355.       IF HJ$ = "" THEN _
  356.          RETURN
  357.       IF VAL(HJ$) <1 OR VAL(HJ$) > 8 THEN _
  358.          GOTO 15710
  359.       I = VAL(HJ$)
  360.       XX$ = "Enter modem command for item" + STR$(I) + " :"
  361.       GOSUB 50345
  362.       LINE INPUT;HJ$
  363.       GOSUB 50654
  364.       ON I GOTO 15712,15714,15716,15718,15720,15722,15724,15726
  365.  
  366. 59020 OPEN "O",#1,CONFIG.FILENAME$
  367.       IF INSTR(MO$,":") < 1 THEN _
  368.          MO$ = MO$ + ":
  369.       IF INSTR(SJ$,":") < 1 THEN _
  370.          SJ$ = SJ$ + ":
  371.       IF INSTR(DRIVE.FOR.BULLETINS$,":") < 1 THEN _
  372.          DRIVE.FOR.BULLETINS$ = DRIVE.FOR.BULLETINS$ + ":
  373.       T$ = DIRECTORY.EXTENTION$
  374.       IF INSTR(DIRECTORY.EXTENTION$,".") THEN _
  375.          T$ = MID$(DIRECTORY.EXTENTION$,INSTR(DIRECTORY.EXTENTION$,".") + 1,LEN(DIRECTORY.EXTENTION$))
  376.       S$ = UPLOAD.DIRECTORY$
  377.       IF INSTR(UPLOAD.DIRECTORY$,".") THEN _
  378.          S$ = MID$(UPLOAD.DIRECTORY$,1,INSTR(UPLOAD.DIRECTORY$,".")-1)
  379.       DIRECTORY.EXTENTION$ = T$
  380.       UPLOAD.DIRECTORY$ = S$
  381.       IF DOWNLOAD.TO.SUBDIR$ = "NO" THEN _
  382.          DNLD.SUB = 0 : _
  383.          FOR I = 1 TO 99 : _
  384.             DNLD$(I) = "" : _
  385.          NEXT
  386.       IF UPLOAD.TO.SUBDIR$   = "NO" THEN _
  387.          UPLOAD.SUBDIR$ = DRIVE.FOR.UPLOADS$ + ":"
  388.       IF UPLOAD.TO.SUBDIR$   = "YES" AND UPLOAD.SUBDIR$<>"" THEN _
  389.          DRIVE.FOR.UPLOADS$ = UPLOAD.SUBDIR$
  390.       IF REQUIRED.RINGS = 0 AND _
  391.          MID$(USER.INIT.COMMAND$,INSTR(USER.INIT.COMMAND$,"S0")+3,5)<>"1Q0X1" THEN _ ' TF032101
  392.          MID$(USER.INIT.COMMAND$,INSTR(USER.INIT.COMMAND$,"S0")+3,5)="1Q0X1"         ' TF032101
  393.       IF REQUIRED.RINGS > 0 AND _
  394.          MID$(USER.INIT.COMMAND$,INSTR(USER.INIT.COMMAND$,"S0")+3,3)="0  " THEN _
  395.          MID$(USER.INIT.COMMAND$,INSTR(USER.INIT.COMMAND$,"S0")+3,3)="254"
  396. '
  397. ' *****************************************************************************
  398. ' * WRITE OUT THE "RBBS-PC.DEF" FILE WITH THE SYSOP'S SPECIFIED CONFIGURATION *
  399. ' *****************************************************************************
  400. '
  401.  
  402. Also line 60385 in CNFG-SUB.BAS should have the variable MODEM.INIT.COMMAND$
  403. changed as follows:
  404.  
  405.       MODEM.INIT.COMMAND$        = "ATM0Q1S2=255S10=30E0S0=0Q0X1"    ' TF032101
  406.  
  407. --------------------------------TF032201---------------------------------------
  408.  
  409. CONFIG.EXE  CNFG-SUB.BAS 03/22/87  A user could not select 10-NET as a valid
  410.                                    local area network (LAN).  The fixes are
  411.                                    in lines 12470, 21810, 21870, 21890, and
  412.                                    21900 in CNFG-SUB.BAS as follows:
  413.  
  414. 12470 DISPLAYED.PAGE.NUMBER = 8
  415.       GOSUB 30040
  416.       MAX.USR.FILE.SIZE.FRM.DEF = HIGHEST.USER.RECORD
  417.       MAX.MSG.FILE.SIZE.FRM.DEF! = HIGHEST.MESSAGE.RECORD
  418.       MAX.ALLOWED.MSGS.FRM.DEF  = MAXIMUM.NUMBER.OF.MSGS
  419.       GOSUB 24800
  420.       LOCATE  3,9
  421.       PRINT "141. Maximum number of concurrent RBBS-PC's  -------" + STR$(MAXIMUM.NUMBER.OF.NODES)
  422.       IF MAXIMUM.NUMBER.OF.NODES = 1 THEN _
  423.          MT$ = "single RBBS-PC copy " ELSE _
  424.          MT$ = "concurrent RBBS-PC's" : _
  425.          GOSUB 21900 : _
  426.          IF NETWORK.TYPE < 0 OR NETWORK.TYPE > 5 THEN _              ' TF032201
  427.             GOTO 21810
  428.       LOCATE  4,9
  429.       PRINT "142. Environment running " + MT$ + " ------ " + NETWORK.TYPE$
  430.       LOCATE  5,9
  431.       PRINT "143. RBBS-PC 'recycle' method when users log off --- " + RECYCLE.TO.DOS$
  432.       FILE$ = MAIN.MESSAGE.FILE$
  433.       GOSUB 30180
  434.       MAX.MSG.FILE.SIZE.FRM.DEF! = UG
  435.       LOCATE  6,9
  436.       PRINT "144. Number of records in the " + MAIN.USER.FILE$ + " file " + STRING$(16-LEN(MAIN.USER.FILE$),"-");STR$(MAX.USR.FILE.SIZE.FRM.DEF)
  437.       LOCATE  7,9
  438.       PRINT "145. Number of records in " + MAIN.MESSAGE.FILE$ + " file " + STRING$(20-LEN(MAIN.MESSAGE.FILE$),"-");STR$(MAX.MSG.FILE.SIZE.FRM.DEF!)
  439.       LOCATE  8,9
  440.       PRINT "146. Maximum number of messages allowed ------------" + STR$(MAX.ALLOWED.MSGS.FRM.DEF)
  441.       LOCATE  9,9
  442.       PRINT "147. Conference File Maintenance.
  443.       GOTO 12580
  444.  
  445. 21810 CLS
  446.       LOCATE 3,5
  447.       PRINT "RBBS-PC is supported in the following:"
  448.       LOCATE 5,20
  449.       PRINT "Environment"
  450.       LOCATE 7,10
  451.       PRINT "0. Single RBBS-PC in an IBM DOS environment"
  452.       LOCATE 9,10
  453.       PRINT "1. MultiLink (multi-tasking under single DOS)
  454.       LOCATE 11,10
  455.       PRINT "2. Omninet (CORVUS)"
  456.       LOCATE 13,10
  457.       PRINT "3. PC-NET (Orchid)"
  458.       LOCATE 15,10
  459.       PRINT "4. DESQview (Quarterdeck)"
  460.       LOCATE 17,10
  461.       PRINT "5. 10 NET (Fox Research)"                               ' TF032201
  462.       LOCATE 19,10                                                   ' TF032201
  463.       PRINT "6. IBM DOS (3.1 or above) file sharing not supported"   ' TF032201
  464.  
  465. 21870 GOSUB 50340
  466.       XX$ = "Select environment (0 to 6, ENTER to end)"              ' TF032201
  467.       GOSUB 50345
  468.       LINE INPUT;X$
  469.       IF X$ = "" THEN _
  470.          RETURN
  471.       NETWORK.TYPE = VAL(X$)
  472.       GOSUB 21890
  473.       RETURN
  474.  
  475. 21890 IF NETWORK.TYPE < 0 OR NETWORK.TYPE > 6 THEN _                 ' TF032201
  476.          GOTO 21870                                                  ' TF032201
  477.  
  478. 21900 IF NETWORK.TYPE = 1 THEN _
  479.          NETWORK.TYPE$ = "MultiLink
  480.       IF NETWORK.TYPE = 2 THEN _
  481.          NETWORK.TYPE$ = "Omninet
  482.       IF NETWORK.TYPE = 3 THEN _
  483.          NETWORK.TYPE$ = "PC-NET
  484.       IF NETWORK.TYPE = 4 THEN _
  485.          NETWORK.TYPE$ = "DESQview"
  486.       IF NETWORK.TYPE = 5 THEN _                                     ' TF032201
  487.          NETWORK.TYPE$ = "10 NET"                                    ' TF032201
  488.       IF NETWORK.TYPE = 6 THEN _                                     ' TF032201
  489.          NETWORK.TYPE$ = "IBM's file sharing -- future"
  490.       RETURN
  491. '
  492. ' *****************************************************************************
  493. ' * COMMON SUBROUTINE TO HANDLE THE FUNCTION KEYS, SCROLL BETWEEN CONFIG'S    *
  494. ' * PAGES OF OPTIONS, AND USER'S SELECTING A NUMERIC 4-CHARACTER OPTION.      *
  495. ' *****************************************************************************
  496. '
  497.  
  498. --------------------------------TF032301---------------------------------------
  499.  
  500. CONFIG.EXE  CONFIG.BAS   03/23/87  CONFIG would always reset the option to  
  501.                                    invoke the external protocol drivers to 
  502.                                    "SHELL" rather than to "EXIT RBBS-PC" when
  503.                                    CONFIG was invoked even if "EXIT RBBS-PC"
  504.                                    had been selected when CONFIG was last 
  505.                                    invoked.  The fix is to line 16180 in
  506.                                    CONFIG.BAS as follows:
  507.  
  508. 16180 CALL GETYESNO ("Use the SHELL command to invoke protocol drivers?",GO.TO.SHELL$)
  509.       IF GO.TO.SHELL$ = "YES" THEN _
  510.          GO.TO.SHELL$ = "SHELL" : _
  511.          RETURN
  512.       IF GO.TO.SHELL$ = "NO" THEN _
  513.          GO.TO.SHELL$ = "EXIT RBBS-PC"                               ' TF032301
  514.       RETURN
  515. '
  516. ' *****************************************************************************
  517. ' * SHOULD "DOORS" BE AVAILABLE?                                              *
  518. ' *****************************************************************************
  519. '
  520.  
  521. --------------------------------TF032401---------------------------------------
  522.  
  523. RBBS-PC.EXE RBBSSUB1.BAS 03/24/87  RBBS-PC does not always connect with users
  524.                                    who are not patient enough to allow auto   
  525.                                    BAUD detect.  Make the following changes to
  526.                                    line 325 of RBBSSUB1.BAS:
  527.  
  528. 325 IF EC = 57 THEN _
  529.        LINE.STATUS = INP(LINE.STATUS.REGISTER) : _
  530.        EC = 0                                                        ' TF032401
  531.     IF SUBROUTINE.PARAMETER = 5 THEN _
  532.        EXIT SUB
  533.     CALL FINDTIME (TI!)
  534.     IF TI! > CONNECT.DELAY! THEN _
  535.        CALL UPDTCALR ("Connect timeout",1) : _
  536.        SUBROUTINE.PARAMETER = 4 : _
  537.        EXIT SUB
  538.     IF DUMB.MODEM THEN _
  539.        BAUD.TEST = VAL(MODEM.INIT.BAUD$) : _
  540.        GOTO 326
  541.     IF INSTR(MODEM.RESPONSE$,"CONNECT") THEN _
  542.        BAUD.TEST = VAL(MID$(MODEM.RESPONSE$,INSTR(MODEM.RESPONSE$,"CONNECT") + 8,4)) : _
  543.        GOTO 326
  544.     IF INSTR(MODEM.RESPONSE$,"ONLINE") THEN _
  545.        BAUD.TEST = VAL(MID$(MODEM.RESPONSE$,INSTR(MODEM.RESPONSE$,"ONLINE") + 7,4)) : _
  546.        GOTO 326
  547.     GOTO 324
  548.     
  549. --------------------------------TF032402---------------------------------------
  550.  
  551. RBBS-PC.EXE  RBBS-PC.BAS 03/24/87  When a users subscription expires the record
  552.                                    of his expiration is sometimes recorded    
  553.                                    incorrectly and his security level is
  554.                                    increased.  Thanks to Randy Sun and Charles
  555.                                    Doughty for identifying and fixing this
  556.                                    problem.  Make the following change to line
  557.                                    number 459 in RBBS-PC.BAS:
  558.  
  559. 459 GOSUB 9500
  560.     LAST.DATE.TIME.ON.SAVE$ = LAST.DATE.TIME.ON$
  561.     IF EXIT.TO.DOORS THEN _
  562.        USER.LOGON.TIME! = (VAL(MID$(LAST.DATE.TIME.ON$,10,2))*3600) + _
  563.                           (VAL(MID$(LAST.DATE.TIME.ON$,13,2))*60) : _
  564.        CALL TIMEREMAIN (TIME.REMAINING!)
  565.     USER.FILE.INDEX = LOC(5)
  566.     GOSUB 5135
  567.     GOSUB 5170
  568.     IF REG.DAYS.REMAINING < 0 THEN _
  569.        CALL QTPUT (LG$(9)+" - security reset to "+STR$(EXPIRED.SECURITY),1):_
  570.        LOGON.ERROR.INDEX = 9 : _
  571.        USER.SECURITY.LEVEL = EXPIRED.SECURITY : _
  572.        LSET SECURITY.LEVEL$ = MKI$(USER.SECURITY.LEVEL) : _          ' TF032402
  573.        GOSUB 5135
  574.     USER.SECURITY.LEVEL$ = STR$(USER.SECURITY.LEVEL)
  575.     IF USER.SECURITY.LEVEL > -1 THEN _
  576.        USER.SECURITY.LEVEL$ = MID$(USER.SECURITY.LEVEL$,2)
  577.     FILE.NAME$ = "LG" + USER.SECURITY.LEVEL$ + ".DEF"
  578.     BYPASS.TIME.CHECK = TRUE
  579.     CALL OPENWORK (FILE.NAME$)
  580.     IF EC = 0 THEN _
  581.        GOSUB 6000
  582.     BYPASS.TIME.CHECK = FALSE
  583.  
  584. --------------------------------TF032403---------------------------------------
  585.  
  586. CONFIG.EXE  CNFG-SUB.BAS 03/24/87  Maximum number of pages displayed is
  587.                                    incorrect in CONFIG.  Randy Sun and Charles
  588.                                    Doughty identified and corrected this
  589.                                    problem.  Change the variable in line
  590.                                    number 60385 in CNFG-SUB.BAS as follows:
  591.  
  592. MAXIMUM.DISPLAYABLE.PAGES  = 13                                      ' TF032403
  593.  
  594. --------------------------------TF032404---------------------------------------
  595.  
  596. RBBS-PC.DOC (none)       03/24/87  The newer versions of the Hayes 2400 BAUD
  597.                                    modem ROM (249 or greater) and some clones
  598.                                    do not allow RBBS-PC to recycle properly 
  599.                                    when the &D switch is set to a value of "3",
  600.                                    as it is in CONFIG for option 211.  They do
  601.                                    however function with the &D switch set to
  602.                                    "2".  If you are not experiencing a problem
  603.                                    with your 2400 BAUD modem do not apply this
  604.                                    change.  A special thanks to Lyndon Payne
  605.                                    for identifying this problem.
  606.  
  607. --------------------------------TF032405---------------------------------------
  608.  
  609. RBBS-PC.DOC              03/24/87 The documentation for linking RBBS-PC is not
  610.                                   correct.  The module name for "ARC View"
  611.                                   is QBARCV2 not QB2ARCV.  The module name for
  612.                                   10 Net support is 10-NET not 10NET.  The
  613.                                   reference to MNP.LIB is not required since
  614.                                   MICROCOM MNP support is no longer provided.
  615.  
  616. The documentation should read as follows:
  617.  
  618. 25.3 LINKing RBBS-PC
  619. --------------------
  620. RBBS-PC.OBJ  can  be LINKed to produce RBBS-PC.EXE with the LINKer  command
  621. (all on one line):
  622.  
  623. LINK RBBS-PC+RBBSSUB1+RBBSSUB2+xxxCOM+QBARCV2+ANSI+XMODEM+RBBSML+BDRIVEC2+
  624.      PC-NET+10-NET+RBBSUTIL+RBBSDV+PREFIX,,,C:/MAP/LINE;
  625.  
  626. NOTE:  xxxCOM  must be replaced with GWCOM if using the QuickBASIC compiler
  627.        and IBMCOM if using the IBM Version 2.0 compiler.  PREFIX is only
  628.        required if linking with Microsoft's QuickBASIC compiler output.
  629.  
  630.        XMODEM.OBJ and RBBSUTIL.OBJ are different .OBJ from earlier
  631.        versions OF RBBS-PC.  MAKE SURE YOU HAVE THE CORRECT ONE!
  632.  
  633. The above LINK command assumes that all the necessary .OBJ files are on the
  634. default drive and the necessary .LIB files are on the "C" drive.
  635.  
  636. --------------------------------TF032406---------------------------------------
  637. APPENDIX.DOC             03/24/87 The documentation for supporting Everex 2400
  638.                                   BAUD modems is not correct. A special thanks
  639.                                   to Sam Brown for identifying the documenta-
  640.                                   tion error and and Carl Margolis of Everex 
  641.                                   in assisting with the revision to the 
  642.                                   documentation.  Appendix N should read as
  643.                                   follows:
  644.  
  645. APPENDIX N -- RBBS-PC and THE Everex 2400 modem switch settings
  646. ---------------------------------------------------------------
  647. The Everex Evercom 24 is an internal 2400 BAUD modem.  It has 4 switches on
  648. the mounting bracket.  If you are using COM1 then all switches should be in
  649. the OFF position.  If you are using COM2 see the Installation Guide for the
  650. correct switch settings.
  651.  
  652. The  Evercom does not have non-volitile memory like the Hayes 2400 and  the
  653. ATZ command will reset the modem to factory defaults.   It is therefore not
  654. necessary  to use CONFIG to set the Hayes 2400 defaults.   Because of  this
  655. major difference  you must  use CONFIG  option 205  to change the  standard
  656. modem defaluts.  Select parameters 2 and 5 enter the command just as  it is 
  657. but with the  addition  of &D2.  This  will instruct  RBBS-PC to add &D2 to
  658. the  standard  modem initialization string each time the  system  recycles.
  659. Please  note that although the Evercom 24 manual indicates that &D2 is  the
  660. default that this is a misprint in their manual and &D0 is the real default
  661. for the &D command.
  662.  
  663. A special thanks goes to Carl Margolis (Everex) for his help in identifying
  664. these restrictions so that Evercom 24 users can now reliably use RBBS-PC.
  665.  
  666. Do not select option 205 if you are using an Everex 1200 BAUD modem.
  667.  
  668. --------------------------------TF032407-------------------------------------
  669. CONFIG.EXE   CONFIG.BAS  03/24/87 There is a confusion of the use of the
  670.                                   upload category codes.  It is possible to
  671.                                   have users categorize uploads even when not
  672.                                   using the File Managment System (FMS).
  673.                                   It is also possible to deactivate this 
  674.                                   option entirely.
  675.  
  676. If you do NOT want users to categorize the files they upload (independent of 
  677. whether or not you are using FMS), simply set CONFIG option 193 to the security
  678. level higher than any user could obtain.
  679.  
  680. If you DO want users to categorize the files they upload you must:
  681.  
  682.     1.  Set CONFIG option 193 to the security level of the "U>pload" command.
  683.     2.  Create a help file to show users when they are asked to categorize
  684.         an uploaded file that might look something like:
  685.  
  686.           Category Code      Category Name        Description
  687.                 1             Utilities       General Utilities
  688.                 2             Games           Games
  689.                 3             Communications  Communications Software
  690.  
  691.     3.  Set CONFIG option 67 to the name of the file that you created in
  692.         item 2.
  693.     4.  If, and ONLY if, you are using the FMS, create a second file in the
  694.         format described on page 69 of the RBBS-PC CPC15-1A documentation and
  695.         set CONFIG option 196 to the name of the file created in this format.
  696.   
  697. --------------------------------TF032501-------------------------------------
  698. RBBS-PC.EXE RBBSSUB1.BAS 03/25/87 If a user logs on and selects all upper 
  699.                                   case output AND color graphics, the color
  700.                                   graphics will not be correct.  Randy Fuchs
  701.                                   both identified the problem and provided the
  702.                                   solution. The fix is to line 1437 in 
  703.                                   in RBBSSUB1.BAS as follows:
  704.  
  705. 1437 IF LOCAL.USER THEN _
  706.         GOTO 1450
  707.      IF UPPER.CASE AND GR <> 2 THEN _                                ' TF032501
  708.         CALL ALLCAPS (A$)
  709.      IF INP(MODEM.STATUS.REGISTER) > 127 THEN _
  710.         PRINT #3,A$;
  711.  
  712. --------------------------------TF032601-------------------------------------
  713. CONFIG.EXE  CNFG-SUB.BAS 03/26/87 A line number, 12312, should have been  
  714.                                   12512 in order not to get any warning 
  715.                                   messages when using BLED to apply the .MRG
  716.                                   files.  To correct this change line number
  717.                                   12312 in CNFG-SUB.BAS as follows:
  718.  
  719. 12512 PRINT "221. Time of day to exit to DOS ------------------- " + TIME.TO.DROP.TO.DOS$ ' TF032601
  720.       LOCATE 4,9
  721.       PRINT "222. Net mail to invoke is ------------------------ " + NOT.YET.IN$ ' NET.MAIL$
  722.       GOTO 12580
  723.  
  724. --------------------------------TF032602-------------------------------------
  725. RBBS-PC.EXE RBBSSUB2.BAS 03/26/87 When the following two conditions were true:
  726.                                          1.  file searches were not limited
  727.                                              to FMS, and
  728.                                          2.  users could categorize uploads;
  729.                                   the non-FMS ".DIR" files were not being 
  730.                                   properly handled.  The fix is to line 20720
  731.                                   in RBBSSUB2.BAS as follows:
  732.  
  733. 20720 A$ = "Upload best fits what category (H=help)"
  734.       SUBROUTINE.PARAMETER = 1
  735.       CALL TGET
  736.       IF SUBROUTINE.PARAMETER = -1 THEN _
  737.          B$ = DEFAULT.CATEGORY.CODE$ : _
  738.          GOTO 20722
  739.       IF Q = 0 THEN _
  740.          GOTO 20719
  741.       CALL ALLCAPS (B$(1))
  742.       IF B$(1) = "H" THEN _
  743.          GOTO 20719
  744.       CALL CHKNARY (B$(1),CATEGORY.NAME$(),NUM.CATEGORIES,FOUND)
  745.       IF FOUND>0 THEN _
  746.          Y$ = CATEGORY.CODE$(FOUND) : _
  747.          IF LEN(Y$) > 0 AND LEN(Y$) < 4 AND INSTR(Y$,",")=0 THEN _
  748.             GOTO 20722
  749.       Y$ = ""
  750.       IF NOT LIMIT.SEARCH.TO.FMS THEN _
  751.          STREW.TO$ = DIRECTORY.PATH$ + B$(1) + "." + DIRECTORY.EXTENTION$ : _
  752.          CALL FINDIT (STREW.TO$) : _
  753.          IF NOT OK THEN _
  754.             STREW.TO$ = "" _                                         ' TF032601
  755.          ELSE _                                                      ' TF032601
  756.             GOTO 20722                                               ' TF032601
  757.       CALL QTPUT ("No such category "+B$(1),1)
  758.       GOTO 20719
  759.  
  760. ======END OF TEMPORARY FIXES FOR RBBS-PC CPC151-A AND CONFIG VERSION 3.00======
  761.